(custom-declare-face): Call make-face-x-resource-internal.

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index bd120299a16ad07e3c86a28d6803abbede4bf83a..de51b6a2973b4ed4c2231f942e16e933892ff591 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -53,7 +53,10 @@
          (while frames
            (setq frame (car frames)
                  frames (cdr frames))
-           (face-spec-set face value frame)))))
+           (face-spec-set face value frame)))
+       ;; When making a face after frames already exist
+       (if (memq window-system '(x w32))
+           (make-face-x-resource-internal face))))
     (when (and doc (null (face-documentation face)))
       (set-face-documentation face doc))
     (custom-handle-all-keywords face args 'custom-face)